home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazine 28 Bonus
/
CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin
/
data
/
arttiml.dir
/
00013_Script_TIMELINE MOVEMENTS 1
< prev
next >
Wrap
Text File
|
1996-06-16
|
2KB
|
59 lines
-- -----------------------------------------------------------
-- Handler goForwardInTime takes the user to the next frame
-- of the time period. This assumes that frames are ordered
-- such that frame F contains the dates and the events
-- that occured and frame (F+1) contains the dates only.
-- (Similarly, frame (F+2) contains the dates and events
-- of the next screen, frame (F+3) contains only the dates
-- of the next screen...)
on goForwardInTime newFrame
global thumb,firstTimeScreenframe,framesBetweenScreens
if voidP(newFrame) then set newFrame = the frame + 2
puppetSound "sound"
updateStage
hideTimePeriods -- if it appears on the stage
set currentFrame = the frame
go currentFrame + 1 -- current frame with just dates
puppetTransition 11, 4, 16 -- Push Left
go currentFrame + 3 -- dates of next screen in period
go newFrame -- dates and events of next screen
updateThumb thumb,firstTimeScreenframe,framesBetweenScreens
end
-- -----------------------------------------------------------
-- Handler goBackInTime takes the user to the next frame
-- of the time period. This assumes that frames are ordered
-- such that frame F contains the dates and the events
-- that occured and frame (F+1) contains the dates only.
-- (Similarly, frame (F+2) contains the dates and events
-- of the next screen, frame (F+3) contains only the dates
-- of the next screen...)
on goBackInTime newFrame
global thumb,firstTimeScreenframe,framesBetweenScreens
if voidP(newFrame) then set newFrame = the frame - 2
puppetSound "sound"
updateStage
hideTimePeriods -- if it appears on the stage
set currentFrame = the frame
go currentFrame + 1 -- current frame with just dates
puppetTransition 12, 4, 16 -- Push Right
go currentFrame - 1 -- dates of previous screen in period
go newFrame -- dates and events of previous screen
updateThumb thumb,firstTimeScreenframe,framesBetweenScreens
end
-- snap thumb to position
on updateThumb thumb,firstTimeScreenframe,framesBetweenScreens
set currentScreenNum = (the frame - firstTimeScreenframe) / framesBetweenScreens + 1
set newThumbPos = getThumbPosFromScreenNum(currentScreenNum)
updateLocHOfItem thumb,newThumbPos
end